home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n14.arc / PCMAP.BAS < prev    next >
BASIC Source File  |  1987-08-16  |  5KB  |  79 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE PCMAP.COM
  2. 110 OPEN "PCMAP.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  59 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 44060 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   136,     0,    80,    67,    77,    65,    80,   738
  21. 300 DATA     32,    49,    46,    48,    32,    40,    99,    41,   387
  22. 310 DATA     32,    49,    57,    56,    55,    44,    32,    90,   415
  23. 320 DATA    105,   102,   102,    45,    68,    97,   118,   105,   742
  24. 330 DATA    115,    32,    80,   117,    98,   108,   105,   115,   770
  25. 340 DATA    104,   105,   110,   103,    32,    67,   111,   114,   746
  26. 350 DATA    112,    46,    13,    10,    10,    36,    26,    82,   335
  27. 360 DATA    111,    98,   101,   114,   116,    32,    76,    46,   694
  28. 370 DATA     32,    72,   117,   109,   109,   101,   108,    83,   731
  29. 380 DATA    101,   103,   109,   101,   110,   116,    32,    80,   752
  30. 390 DATA     97,   114,    97,   103,   114,    97,   112,   104,   838
  31. 400 DATA    115,    32,    32,    32,    32,    80,   114,   111,   548
  32. 410 DATA    103,   114,    97,   109,    13,    10,    36,    67,   549
  33. 420 DATA     79,    77,    77,    65,    78,    68,    46,    67,   557
  34. 430 DATA     79,    77,    40,    85,   110,   107,   110,   111,   719
  35. 440 DATA    119,   110,    41,    40,    70,   114,   101,   101,   696
  36. 450 DATA     41,    32,    32,    32,    32,    32,    32,    32,   265
  37. 460 DATA     36,     0,     0,   186,     3,     1,   180,     9,   415
  38. 470 DATA    205,    33,   180,    48,   205,    33,    60,     3,   767
  39. 480 DATA    114,     4,   254,     6,   138,     1,    51,   219,   787
  40. 490 DATA    142,   195,    38,   128,    62,     0,     0,    77,   642
  41. 500 DATA    116,     3,    67,   235,   243,   139,   195,    64,  1062
  42. 510 DATA     38,   139,    14,     1,     0,    59,   193,   117,   561
  43. 520 DATA    241,   139,    22,     2,     0,   252,   191,   213,  1060
  44. 530 DATA      2,    38,   139,    14,     1,     0,   160,   137,   491
  45. 540 DATA      1,    10,   192,   116,    17,   254,   200,    11,   801
  46. 550 DATA    201,   116,     6,   139,    53,    59,   206,   116,   896
  47. 560 DATA     25,   131,   199,    17,   235,   235,   254,     6,  1102
  48. 570 DATA    137,     1,   139,   193,    11,   201,   117,     3,   802
  49. 580 DATA    139,   195,    64,   137,     5,   199,    69,     2,   810
  50. 590 DATA      0,     0,    38,   139,    54,     3,     0,    67,   301
  51. 600 DATA    139,   195,     3,   222,     1,   117,     2,   190,   869
  52. 610 DATA    123,     1,    11,   201,   117,     6,   185,     6,   650
  53. 620 DATA      0,   235,    23,   144,    59,   193,   117,    97,   868
  54. 630 DATA     38,   139,    54,    60,     0,   128,    62,   137,   618
  55. 640 DATA      1,     1,   117,    20,   190,   103,     1,   185,   618
  56. 650 DATA     11,     0,   131,   199,     4,    14,     7,   243,   609
  57. 660 DATA    164,   176,    36,   170,    14,    31,   235,    65,   891
  58. 670 DATA    128,    62,   138,     1,     0,   116,    48,    78,   571
  59. 680 DATA     86,    31,    59,    14,     1,     0,   117,    39,   347
  60. 690 DATA     70,    86,    31,    51,   246,    70,    78,   173,   805
  61. 700 DATA     11,   192,   117,   250,   173,   139,   238,    77,  1197
  62. 710 DATA    172,    10,   192,   117,   251,    78,   139,   206,  1165
  63. 720 DATA     78,    59,   245,   116,     5,   128,    60,    92,   783
  64. 730 DATA    117,   246,    70,    43,   206,   235,   187,    14,  1118
  65. 740 DATA     31,   185,     9,     0,   190,   114,     1,   235,   765
  66. 750 DATA    177,   142,   195,    59,   218,   116,     3,   233,  1143
  67. 760 DATA     67,   255,   186,    71,     1,   180,     9,   205,   974
  68. 770 DATA     33,   190,   213,     2,   138,    14,   137,     1,   728
  69. 780 DATA     50,   237,   232,    25,     0,   232,    22,     0,   798
  70. 790 DATA    139,   214,   180,     9,   205,    33,   131,   198,  1109
  71. 800 DATA     13,   186,   100,     1,   180,     9,   205,    33,   727
  72. 810 DATA    226,   232,   180,    76,   205,    33,   173,   232,  1357
  73. 820 DATA      8,     0,   186,   129,     1,   180,     9,   205,   718
  74. 830 DATA     33,   195,    80,   138,   196,   232,     1,     0,   875
  75. 840 DATA     88,    80,    81,   177,     4,   210,   232,    89,   961
  76. 850 DATA    232,     3,     0,    88,    36,    15,     4,   144,   522
  77. 860 DATA     39,    20,    64,    39,    82,   138,   208,   180,   770
  78. 870 DATA      2,   205,    33,    90,   195,     0,     0,     0,   525
  79.